home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 37
/
Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso
/
Aminet
/
comm
/
tcp
/
Miami32b-ita.lha
/
MiamiItaliano_Install
/
Install_Italiano
next >
Wrap
Text File
|
1999-11-04
|
3KB
|
138 lines
; $VER: Install_Italiano 3.2b (4.11.99)
(procedure P-check-system-version
(if (< (/ @installer-version 65536) 43)
(abort "The installation script requires\n"
"Installer version 43 or higher.\n"
"That version is available from Aminet or\n"
"www.nordicglobal.com.")
)
(set #exec-version (/ (getversion) 65536))
(if (< #exec-version 37)
(abort "Miami requires Kickstart 2.04 or higher.\n")
)
)
(procedure P-select-destination-directory
(if (exists "Miami:" (noreq))
(
(set @default-dest
(askdir
(prompt "Please indicate in which directory "
"you have installed Miami 3.2b.")
(help "Please indicate in which directory "
"you have installed Miami 3.2b. Usually the "
"correct directory is the one the `Miami:' "
"assign points to.")
(default "Miami:")
)
)
) (
(abort "The assign `Miami:' does not exist on your "
"computer. You first need to install Miami 3.2b "
"before you can install local files for it.")
)
)
)
(welcome "Welcome to the Installation of locale\n"
"files for Miami 3.2b\n")
(set app-name "Miami")
(P-check-system-version)
(if @pretend
(abort "The `pretend mode' cannot be used\n"
"with this installation script.\n")
)
(complete 0)
(set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
(expandpath @icon))
)
(P-select-destination-directory)
(complete 5)
; start actual installation
(if (not (exists (tackon @default-dest "Catalogs")))
(makedir (tackon @default-dest "Catalogs"))
)
(complete 10)
(if (not (exists (tackon @default-dest "Catalogs/italiano")))
(makedir (tackon @default-dest "Catalogs/italiano"))
)
(complete 20)
(if (not (exists (tackon @default-dest "Help")))
(makedir (tackon @default-dest "Help"))
)
(complete 30)
(if (not (exists (tackon @default-dest "Help/italiano")))
(makedir (tackon @default-dest "Help/italiano"))
)
(complete 40)
(copyfiles
(source (tackon #source-dir "Miami.guide"))
(dest (tackon @default-dest "Help/italiano"))
(optional force)
)
(complete 50)
(copyfiles
(source (tackon #source-dir "Miami.catalog"))
(dest (tackon @default-dest "Catalogs/italiano"))
(optional force)
)
(complete 60)
(copyfiles
(source (tackon #source-dir "MiamiInit.catalog"))
(dest (tackon @default-dest "Catalogs/italiano"))
(optional force)
)
(complete 70)
(copyfiles
(source (tackon #source-dir "MiamiRegister.catalog"))
(dest (tackon @default-dest "Catalogs/italiano"))
(optional force)
)
(complete 80)
(if (exists (tackon @default-dest "Miami.guide.info"))
(
(copyfiles
(source (tackon @default-dest "Miami.guide.info"))
(dest (tackon @default-dest "Help/italiano"))
(optional force)
)
(tooltype
(dest (tackon @default-dest "Help/italiano/Miami.guide"))
(noposition)
)
)
)
(complete 100)
(exit "The installation of locale files for Miami is "
"completed. When you start Miami, MiamiInit or "
"MiamiRegister again, the installed language will be "
"used if it is selected in `Locale' system preferences."
)